home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / fulldrag / clockfrm.pas < prev    next >
Pascal/Delphi Source File  |  1996-04-08  |  845b  |  47 lines
  1. unit Clockfrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Fulldrag, ExtCtrls, StdCtrls;
  8.  
  9. type
  10.   THorloge = class(TForm)
  11.     FullDrag1: TFullDrag;
  12.     Timer1: TTimer;
  13.     procedure FormPaint(Sender: TObject);
  14.     procedure Timer1Timer(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. var
  22.   Horloge: THorloge;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure THorloge.FormPaint(Sender: TObject);
  29. var
  30.     t: String;
  31. begin
  32.     t:=TimeToStr(Time);
  33.     SetBkMode(canvas.Handle, TRANSPARENT);
  34.     with Canvas do
  35.         TextOut(
  36.             (ClientWidth-TextWidth(t)) div 2,
  37.             (ClientHeight-TextHeight(t)) div 2,
  38.             t);
  39. end;
  40.  
  41. procedure THorloge.Timer1Timer(Sender: TObject);
  42. begin
  43.     Invalidate;
  44. end;
  45.  
  46. end.
  47.